home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 5-Fonts & Software / Applications / DesignStudio / DesignStudio™ 1.01 / DesignStudio™ 1.01.rsrc / PSCD_265 < prev    next >
Encoding:
Text File  |  1990-08-09  |  223 b   |  10 lines
  1. 3 dict begin
  2. currentscreen
  3. /oldproc exch def
  4. /oldangle exch def
  5. /oldfreq exch def
  6. 60 45 {abs exch abs 2 copy add 1 gt
  7. {1. sub dup mul exch 1. sub dup mul add 1. sub}
  8. {dup mul exch dup mul add 1. exch sub}
  9. ifelse} setscreen
  10.